?AV LUNKWITZ 

RUSSELL STARKEV 

WALTER GOULD 

ulfiLTER GOULD 

WALTER GOULD 

PHELPS GATES 

ZVI DERSHOHITZ 

2VI DERSHOHITZ 

ZVI DERSHOHITZ 

WILLIAM BARDEN 

ZVI DERSHOHITZ 

R. K. CURTIS 

RUSSELL STARKEV 

R. HEMPEL 

R. HEMPEL 

R. HEMPEL 

R. HEMPEL 

R H. RUSH 

C. W. EVANS 

C. W. EVANS 

D. D HINRICHS 

D. D. HINRICHS 

STEVE MACGREGOR 



61 OPERATE R TT 37 

62 OREGON TRAIL 
68 MORSE CODE 

68 DRAG RACE 

69 ANIMATION 
69 DIR PRINT 
78 CALENDER 

78 DATE 

71 TEXT EDITOR 

71 JUMBLE 

72 HANGMAN 

73 PENDULUM/LP 

73 RAB8ITS * FOXES 

74 RUN1, RUN2, RUN3 

75 RUN4, RUNS/ RUN7 

75 VI DEW 

76 TRAFFIC COP 

77 ITEM INDEX 

79 SUPERBAGELS 

80 TAPE TEST 

31 ROCKET LANDER 

82 ORBITOR 

86 DOS MENU 



REPORT: 

IN THE JUNE ISSUE OF VOUP NEWSLETTER THERE HAS RN AD FOR 
THE 'RF-II' I HAVE BEEN USING THE UNIT c OP ABOUT 90 PAYS 
AND FIND THAT *T IS R TAP*-' jOCP ADDITION TO MY TRS-!?8 

THE PF-II MILL CONTROL -JO (2) TAPE RECORDERS WITH REMIND 
AND CROSS OVER FROM OfE '0 ThE OTHER. 



COST: 



FOR MORE INFO CALL OR WRITE 



FOR CTR-88 IS $54 95 
CTR-41 IS $49 95 



FULLER ELECTRONICS 
M€5 HOLLISTER RVE. 
SUITE 232 
GOLETA, CA 91917 
1 .385) 968-4266 



HI BOB- 

I V€ BEEN USING THESE TWO ROUTItCS TO OPERftTE Iff T» V 1 MODIFIED ft PROGRAM BV LEAH R O'COMCR TO NOR* BETTER FOR NY USES. I USE T 
•€ PROGRAM PRINT ' TO PRINT R CONTINUOUS RUN AM) I USE ' PRINTER ' TO SKIP OV€R THE PBf ORATIONS. 

I HAVE PUT REN'S TO HELP flNWOV MODIFY IT TO HOW BETTER FOR THEN. I HAVE ENCLOSED ft CHECK FOR 2 VRS AS 1 W. SEEHS SO SHORT 
Iff SUBSCRIPTION HAS RUN OUT M LIU SO HANV THINGS ITS NOT HISSED Till VOU WTT GET HNV MORE 

I DO HAVE R SUGGESTION TOO SINCE VOU'RE GATHERING INFORHRTICM TO DO SOX GROUP BUYS *V NOT SEND R flUESTICNAIRE WITH R NB6LE 
TTER FOR VOUR READERS TO ANSUER IN CATEGORVS. WAT EOUIPTNENT THEV WANT (LIKE CM DISK DRIVES >HOU fflNY TRACKS AMD METHER OR NOT HI T 
H CABINETS OR POO SUPPLIES LIKE HE I PREFER DRIVES ONLY NO CABINET OR POMS SUPPLV. I FIND I SAVE WE AND NV (XM CABINET ALLOH 
S ME TO ARRANGE THEN TO SUIT HE. 

I DO HAVE R QUESTION FOR SPECULATION ? WV CAN'T DRIVES ON A TRS-96 BE PUT INTO 4 DRIVES TO R GRCIP AND HAVE 2 OR NDRE GROUPS. 
R BUFFER TO IflUE THE EXTRA LOGIC LOAD AM) A SELECTOR TO SELECT WICK GROUP HRVEC CONTRCLLED BY AN OUT PORT AM) R MODIFICATION TO 
DOS TO COUNT HOE DRIVES . IT SEEHS LIKE fl WAV FOR THOSE OF US WO AUJODV HAVE 4 DRIVE TO FJOTK) AM) »T HAVE TO SELL THE DRIVES H 
E HAVE OR TRANSFER ALL THOSE FR08RANS TO A MEM SYSTEM DOES ANYONE KNOH UHV IT MOULD OR HOULDN'T WORK ? 
RESPECTFUiy, 
NWUJNUZ 
PO BOX (71 
GRAND ISLAM) NOR 68881 



1 REH *• THIS Mia PRINT SB LINES TO THE PAGE ** 

2 REN «* IT MILL SKIP 8 LINES AND START MEM PAGE •* 

3 REN ** IT PRINTS 88 CHARACTERS TO R LINE *• 

4 REN ** IT ADD LINE FEED AFTER A CARRIAGE RETURN ** 

5 REN ** POKE-124, 1 TO SET TOP OF PAGE «• 

6 REH •* POKE-136, ? TO SET CHARACTERS PER LINE ** 

7 REN ** POKE-167, ? TO SET LINES PER PACK *• 

8 REH •* POKE-157, ? TO SET SKIP LINES TO NEW PAGE *• 

9 REM ** THIS PROGRAM IS FOR A TT 3X39 OR 37 RUNNING AT 118 BAUD, MITH RS-232 INTERFACE 
18 REN ** POKE NEW DCS TYPE AND ADDRESS IN RAN ( 16425 ) «* 

11 REN ** -236 TO -213 INITIALIZES INTERFACE ** 

12 REN ** -218 TO -285 CHECKS FOR READY TO SEND ** 

13 REN ** -264 TO -145 LINES TO PAGE AMD SKIP LINES CHECKS ** 

14 REN ** -144 TO -128 CHARACTERS PER LINE «* 

15 REN ** -127 TO -121 DATA STORAGE FOR ROUTINES 

16 REH *♦ FOR RS-232 , SET UP AT 118 BAUD, PARITY ENABLE, *• 

17 REM ** 8 BIT WORD AND EVEN PARITY ** 

18 REH •* THIS ROUTINE ORIQINALLV WRITTEN BY LEAH R O'CCNNER ** 

19 REH ** 6315 H. RAVEN, CHICAGO, ILL 68646 (312) 792-3253) ** 
28 POKE 16421, 2: POKE 16422, 8: POKE 16423,235 

38 REH •* POKE RS-232-C I/O DRIVER INTO HIGH HEN <65233> •* 

48 FOR X»-256 TO -121 

58 READ Y 

69 POKE X,Y 

78 NEXT X 

75 END 

88 DATA 229, 197, 245, 38, 129, 235, 254, L 48 

98 DATA 26, 62, i. 58, 129, 235, 211, 232, 219, 233 

188 DATA 238, 248, 246, 4, 58, 138, 235, 2U, 234 

118 DATA 219,233,238,7,62 

128 DATA 34, 211, 233, 241, 193, 225, 219, 232 

138 DATA 283, 119, 32, 258, 219, 234 

135 DATA 283,119,48,244,121.211,235,254 

148 DATA 13,32,4,14,18,24,233,254,18,32,46 

144 DATA 58, 133, 235, 68, 61, 48, 8, 61, 58, 133, 255, 14, 18, 24, 214 

145 DATA 56,132,255,68,58,132,255,14,58,185,32,12 

146 DATA 62,8,58,132,255,62,8,38,133,255,24,269 
158 DATA 62,8,58,131,255,24,16,58,131 

168 DATA 255,66,56,131,255,14,88,185,32,4,14,13,24 
176 DATA 167,261,8,8,8,1,8,34,8 
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REM ** THIS ROUTINE PRINTS 88 CHARACTERS TO fl LINE ** 
REM ** AND ADDS A LINE FEED AFTER CARRIAGE RETURN ** 
REM ** IT IS DESIGNED FOR A TT 33, 35 OR 37 AT 118 BAUD ** 
REM ** AND RS-232 INTERFACE SET UP FOR 118 BAUD, ** 
REM ** PAR I TV ENABLE, 3 BIT WORD AND EVEN PAR I TV ** 
REM ** POKE -169,? TO CHANGE CHARACTERS PER LINE ** 
18 REM ** POKE NEW DCB TVPE AND ADDRESS IN RAM < 16421 > ** 

11 REM ** THIS PROGRAM ORIGINALLY BV LEAH R. OCONNER ** 

12 REM ** FREE LANCE COMPUTER PROGRAMMER AND TECHNICAL WRITER ** 

13 REM +* 6315 W. RAVEN, CHICAGO, ILL. 68646 <312> 792-3253 ** 
28 POKE 16421, 2 : POKE 16422, 8 : POKE 16423, 255 

38 REM ** POKE RS-232-C I/O DRIVER INTO HIGH MEM < -256 > ** 

48 FOR X— 256 TO -156 

58 REAO V 

68 POKE X,V 

78 NEXT X 

75 END 

88 DATA 229,197,245,58,96,255,254,1,48 

96 DATA 32,62,1,58,96,255,211,232,219,233 

188 DATA 238,248,246,4,58,97,255,211,234 

118 DATA 219,233,238,7,33,188,255,6,8,79,62 

128 DATA 34,211,233,241,193,225,219,232 

138 DATA 283, 119, 32, 258, 219, 234 

135 DATA 203,119,48,244,121,211,235,254 

148 DATA 13,32,4,14,18,24,233,254,18 

150 DATA 32,7,62,8,50,98,255,24,16,58,98 

160 DATA 255, 68, 58, 98, 255, 14, 88, 185, 32, 4, 14, 13, 24 

178 DATA 286,281,8,8,8,34,8 



SAVE 19X, 15* OR MORE ON ALL COMPUTERS, PERIPHERALS, & SOFTWARE. 

MO TAXES ON OUT-OF-STATE SHIPMENTS. 

WARRANTIES WILL BE HONORED BV VOUR LOCAL RADIO SHACK' STORE. 

VERBATIM DISKETTES $3 59 EACH. 

HENRY'S ENGINEERING CO. 

P. 0. BOX 629 

PRINCE FREDERICK, MD 29678 

(381) 855-6777 (301) 535-3142 



TRS-88 QUALITY SOFTWARE 



LEVEL I. AND LEVEL II. 

#1. IDM-I CASSETTE DATA BASE $28. 

#2. INV-I INVENTORY CONTROL $20. 

#3 STOCK- I SECURITY INFO. $18 

•4 BANK- I CHECK BALANCE $19 

#5 FINANCE-I STCCK-I t, BANK-I $15. 

DISKETTE. 

•12. MAIL-III MAILING LIST $35 

•14. WORD-III WORD PROCESSOR $35 

#21. INV-I I I INVENTORY CONTROL $35. 

•22. KEY-III KEY RANDOM ACCESS $15 

PRICE INCLUDES POSTAGE, CASSETTER * DOCU 



LEVEL II 






•11. 


WORD-I 


WORD PROCESSOR 


$25 


•15. 


MAIL-I 


NAME AND ADDRESS 


$25 


•16 


SORT- I 


SORT UTILITY 


$19. 


#17 


STAT- I 


STATISTICS 


$18 


•18. 


KEY- 1 


KEV-ACCESS 


$19. 


•19. 


SALE- I 


SALE ANALYSIS 


$19. 


•29 


UTIL-I 


SORT- I * KEY- I 


$16. 



MICRO ARCHITECT 
96 DOTHAN ST. 
ARLINGTON, MA 92174 



28 REM OREGON TRAIL FROM MAY-JUNE "CREATIVE COMPUTING" 1978 

TYPED BY PRISCILLA STARKEY REV (1) POW SUB UP DATE 

EDITED BY RUSSELL STARKEY 

190 CLEARi90:CLS:SP$="HOW MUCH DO VOU WANT TO SPEND ON ": RANDOM 

169 PRINT"DO YOU NEED INSTRUCTIONS (YES/NO)"; : INPUTC$ 

299 IF C$="NO" OR C$="N" THEN 798 

239 REM *** INSTRUCT IONS*** 

249 CLS : PRINT: PRINT :PRINT"THIS PROGRAM SIMULATES A trip OVER THE OREGON TRAIL FROM" 

259 PRINT" INDEPENDENCE, MISSOURI TO OREGON CITY, OREGON IN 1847. " 

278 PRINT-IN 5-6 MONTHS IF YOU MAKE IT ALIVE " 

288 PRINT 

299 PRINT"YOU HAD SAVED $999 TO SPEND FOR THE TRIP, AND YOU'VE JUST" 

380 PRINT" PAID $200 FOR A WAGON. " 

310 PRINT"YOU WILL NEED TO SPEND THE REST OF YOUR MONEY ON THE" 

320 PRINT" FOLLOWING ITEMS:" 

330 GOSUB9000 



OXEN - VOU CAN SPEND $288-$300 ON VOUR TEAM" 

THE MORE YOU SPEND, THE FASTER YOU'LL GO" 
BECAUSE YOU'LL HAVE BETTER ANIMALS" 
FOOD - THE MORE YOU HAVE, THE LESS CHANCE THERE" 
IS OF GETTING SICK" 
AMMUNITION - $1 BUYS A BELT OF 50 BULLETS" 

YOU WILL NEED BULLETS FOR ATTACKS BV ANIMALS" 
AND BANDITS, AND FOR HUNTING FOOD" 
CLOTHING - THIS IS ESPECIALLY IMPORTANT FOR THE COLD"0 
WEATHER YOU HILL ENCOUNTER WHEN CROSSING" 
THE MOUNTAINS" 
MISCELLANEOUS SUPPLIES - THIS INCLUDES MEDICINE AND" 
OTHER THINGS YOU HILL NEED FOR SICKNESS" 
AND EMERGENCY REPAIRS" 



340 PRINT" 

350 PRINT" 

360 PRINT" 

380 PRINT" 

390 PRINT" 

410 PRINT" 

420 PRINT" 

439 PRINT" 

450 PRINT" 

460 PRINT" 

470 PRINT" 

498 PRINT" 

500 PRINT" 

510 PRINT" 

520 GOSUB9000 

530 PRINT 

540 PRINT" YOU CAN SPEND ALL YOUR HONEY BEFORE YOU START YOUR TRIP -" 

550 PRINT'OR YOU CAN SAVE SOME OF YOUR CASH TO SPEND AT FORTS ALONG" 

560 PRINT"THE WAY WHEN YOU RUN LOW. HOWEVER, ITEMS COST MORE AT" 

570 PRINT"THE FORTS. YOU CAN ALSO GO HUNTING ALONG THE WAY TO GET" 

580 PRINT'MORE FOOD. " 

590 PRINT" WHENEVER YOU HAVE TO USE YOUR TRUSTY RIFLE ALONG THE WAY, " 

600 PRINT-YOU WILL BE TOLD TO TVPE IN A WORD (ONE THAT SOUNDS LIKE A" 

610 PRINT"GUN SHOT. ) THE FASTER VOU TVPE IN THAT WORD AND HIT THE" 

620 PRINT"ENTER KEY. THE BETTER LUCK YOU'LL HAVE WITH YOUR GUN " 

640 PRINT"AT EACH TURN, ALL ITEMS ARE SHOWN IN DOLLAR AMOUNTS" 

650 PRINT'EXCEPT BULLETS" 

660 PRINT" WHEN ASKED TO ENTER MONEY AMOUNTS, DON'T USE A $" 

680 PRINT"GOOD LUCK!!!!" 

690 GOSUB9000 

700 PRINT 

719 PRINT"HOW GOOD A SHOT ARE VOU WITH YOUR RIFLE?" 

720 PRINT" (1) ACE MARKSMAN. (2) GOOD SHOT, <3) FAIR TO MIDDLIN" 
730 PRINT" <4> NEED MORE PRACTICE, (5) SHAKY KNEES" 

740 PRINT-ENTER ONE OF THE ABOVE ~ THE BETTER VOU CLAIM YOU ARE, THE" 
750 PRINT'FASTER YOU'LL HAVE TO BE WITH YOUR GUN TO BE SUCCESSFUL " 
768 INPUT D9 
779 IF D9>5 OR D9<1 THEN RUN 

889 REM ***INITIAL PURCHASES*** 
818 Xl=-1 

830 PRINT 

840 PRINT 

850 PRINT SP$; "YOUR OXEN TEAM", 

860 INPUT A 

878 IF A >= 200 THEN 990 

880 PRINT'NOT ENOUGH" 

890 GOTO 850 
900 IF A <= 300 THEN 939 



IF ANYONE WANTS A TAPE WITH ALL THREE 
'.POD GUESS WILL BE IN OCT 79 ISSUE) 
OF THE PROGRAMS ON IT - "-EASE SEND 
ME $5 OR $4 ?? s I WILL SEND YOU A TAPE. 
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918 PRINT-TOO MUCH" 

926 GOTO 856 

938 PRINTSP*; "FOOD", 

948 INPUT F 

958 IF F >« 8 THEN 988 

968 PRINT" IMPOSSIBLE" 

978 GOTO 938 

988 PRINT SP$; "AMMUNITION"; 

998 INPUT B 

1888 IF B >» 8 THEN 1838 

1818 PRINT" IMPOSSIBLE" 

1828 GOTO 988 

1838 PRINT SP«; "CLOTHING"; 

1848 INPUT C 

1858 IF C>= 8 THEN 1888 

1868 PR I NT "IMPOSSIBLE" 

1878 GOTO 1838 

1888 PRINT SP*> "MISCELLANEOUS SUPPLIES"; 

1898 INPUT Ml 

1188 IF Ml >= THEN 1138 

1118 PRINT" IMPOSSIBLE" 

1128 GOTO 1888 

1138 T«7ee-ft-F-B-C-Ml 

1148 IF T > 8 THEN 1178 

1158 PRINT'YOU OVERSPENT— VOU ONLV HAD $788 TO SPEND. BUY AGAIN" 

1168 GOTO 838 

1178 B*58*8 

1188 PRINT'AFTER ALL VOUR PURCHASES. VOU NOW HAVE ";T;" DOLLARS LEFT" 

1198 PRINT 

1288 PRINT "MONDAY MARCH 29 1847" 

1218 PRINT 

1228 GOTO 1758 

1238 IF M >- 2848 WEN 5438 

1248 REM ***SETTING DATE*** 

1258 D3-03+1 

1268 PRINT 

1278 PRINT-HONDAV "; 

1288 IF D3>18 THEN 1388 

1298 ON D3 GOTO 1318, 1338. 1358, 1378, 1398, 1418, 1438, 1459, 1478, 1498 

1388 ON D3-18 GOTO 1518, 1538, 1558, 1578, 1598, 1618, 1639, 1659, 1678, 1698 

1318 PRINT"APRIL 12 "i 

1228 GOTO 1728 

1338 PRINT"APRIL 26 "; 

1348 GOTO 1728 

1358 PRINT"HAV 18 *; 

1368 GOTO 1728 

1378 PRINT'MAY 24 "; 

1388 GOTO 1728 

1398 PRINT" JUNE 7 "; 

1488 GOTO 1728 

1418 PRINT"JUNE 21 "; 

1428 GOTO 1728 

1438 PRINT"JULV 5 "; 

1448 GOTO 1728 

1458 PRINT" JULY 19 "; 

1468 GOTO 1728 

1478 PRINT"AUGUST 2 "; 

1488 GOTO 1728 

1498 PRINT" AUGUST 16 "; 

1588 GOTO 1728 

1518 PRINT"AUGUST 31 ", 

1528 GOTO 1728 



1538 PRINT"SEPTENBER 13 "; 
1548 GOTO 1728 
1559 PRINT-SEPTEMBER 27 "; 
1568 GOTO 1728 

1578 PRINT"OCTOBER 11 "; 

1588 GOTO 1728 

1598 PRINT"OCTOBER 25 "; 

1688 GOTO 1728 

1618 PRINT"NOVEMBER 8 "; 

1628 GOTO 1728 

1638 PRINT"NOVEMBER 22 "; 

1648 GOTO 1728 

1658 PRINT-DECEMBER 6 "; 

1668 GOTO 1728 

1678 PRINT-DECEMBER 28 "; 

1688 GOTO 1728 

1698 PRINT"VOU HAVE BEN ON THE TRAIL TOO LONG " 

1788 PRINVYOUR FAMILY DIES IN THE FIRST BLIZZARD OF WINTER" 

1718 GOTO 5178 

1728 PRINT"1847" 

1738 PRINT 

1748 REM ***BEGINNING EACH TURN*** 

1758 IF F>* 8 THEN 1778 

1768 F=0 

1778 IF B >■ 8 THEN 1798 

1788 B=8 

1798 IF C >= 8 THEN 1818 

1888 C=8 

1818 IF Ml >= 8 THEN 1838 

1828 Ml=8 

1838 IF F >= 8 THEN 1858 

1848 PRINT"VOU'D BETTER DO SOME HUNTING OR BUY FOOD AND SOON 1 !! •' 

1858 F*1NT<F> 

1868 B»INT<B> 

1878 C=INT<C) 

1888 H1=INT(M1) 

1898 T*INT<T> 

1988 M=INT<M) 

1918 M2=H:IFM>2848 THEN 5428 

1928 IF S4=l THEN 1958 

1938 IF K8»i THEN 1958 

1948 GOTO 1998 

1958 T=T-28 

1968 IF T<9 THEN 5888 

1978 PRINT-DOCTOR'S BILL IS *29" 

1988 K8=8:S4=8 

1998 IF M9=l THEN 2828 

2888 PRINT"TOTAL MILEAGE IS ";H 

2918 GOTO 2849 

2928 PRINT-TOTAL MILEAGE IS 958" 

2838 M9=8 

2848 G0SUB9288 

2868 IF Xi=-1 THEN 2178 

2878 X1=X1*<8> 

2888 PRINT-DO YOU WANT TO <1> STOP AT THE NEXT FORT, (2) HUNT, "; 

2898 PRINT'OR (3) CONTINUE" 

2109 INPUT X 

2118 IF X>2 THEN 2158 

2128 IF X<1 THEN 2158 

2138 X*INT<X) 

2148 GOTO 2278 

2158 X=3 
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2168 GOTO 2278 

-H.79 PRINT'DO VOU WANT TO <i) HUNT, OR <.2> CONTINUE" 

2188 INPUT X 

2198 IF X=i THEN 2210 

2288 X-2 

2218 X*X+1 

2228 IF X*3 THEN 2268 

2238 IF B>39 THEN 2260 

2248 PRINT"TOUGH VOU NEED MORE BULLETS TO GO HUNTING" 

2258 GOTO 2178 

2268 X1»X1*<8> 

2278 ON X GOTO 2298, 2548, 2728 

2288 REM ***STOPPING AT FORT*** 

2298 PRINT"ENTER WHAT VOU WISH TO SPEND ON THE FOLLOWING" 

2308 PRINT-FOOD"; 

2318 GOSUB 2338 

2320 GOTO 2410 

2330 INPUT P 

2340 IF P<0 THEN 2408 

2358 T-T-P 

2360 IF T >* THEN 2408 

2370 PRINT-VOU DON'T HAVE THAT MUCH — KEEP VOUR SPENDING DOWN" 

2375 PRINT-VOU MISS VOUR CHRNCE TO SPEND ON THAT ITEM" 

2380 T«T+P 

2390 P-« 

2400 RETURN 

2410 F*f *2/3*P 

2420 PRINT-AMMUNITION"; 

2430 GOSUB 2330 

2440 B«INT<B+2/3*P*50> 

2450 PRINT "CLOTHING"; 

2468 GOSUB 2338 

2478 OC*2/3*P 

2488 PRINT-MISCELLANOUS SUPPLIES"; 

2490 GOSUB 2330 

2508 H1-H1*2/3*P 

2510 H-M-45 

2520 GOTO 2720 

2530 REM ***HUNTING*** 

2540 IF B>39 THEN 2570 

2550 PRINT"TOUGH — VOU NEED MORE BULLETS TO GO HUNTING" 

2560 GOTO 2080 

2570 H-fl-45 

2580 GOSUB 6140 

2590 IF Bl <» 1 THEN 2668 

2608 IF 100*RND<0X13*B1 THEN 2718 

2618 F«F+48-2*Bl 

2620 PRINT-NICE SHOT—RIGHT ON TARGET—GOOD EATIN' TONIGHT!!" 

2630 B»8-10-3*B1 

2640 GOTO2720 

2658 REM **BELLS IN LINE 2668** 

2668 PRINT'RIGHT BETWEEN THE EVES — VOU GOT A BIG ONE' ! ! ! " 

2678 PRINTFULL BELLIES TONIGHT!" 

2688 F*F+52+RND(8)*6 

2698 B"8-18-RND<0>*4 

2788 GOTO 2728 

2?18 PRINT-VOU MISSED AND VOUR DINNER GOT AHAV " 

2728 IF F > 13 THEN 2758 

2738 GOTO 5060 

2740 REM ***EATING*** 

2750 PRINT"DO VOU WANT TO EAT <1> PdORLY (2) MODERATELY" 

2760 PRINT"OR (3) WELL"; 

2770 INPUT E 



2780 IF E>3 THEN 2758 

2798 IF E<1 THEN 2750 

2388 E=INT(E) 

2818 F=F-8-5*E 

2328 IF F >= 8 THEN 2868 

2838 F=F+8+5*E 

2848 PRINT"YOU CAN'T EAT THAT WELL" 

2858 GOTO 2758 

2868 M«M+200*<A-228>/5+10*RND<8) 

2878 L1=C1=8 

2388 REM ***RIDERS ATTACK*** 

2898 IF RND<18»5 THEN 3558 

2988 PRINT"RIDERS AHEAD. THEV "; 

2918 S5-0 

2920 IF RND(8)C 8 THEN 2958 

2938 PRINT"DON'T "; 

2948 S5«l 

2958 PRINT-LOOK HOSTILE" 

2968 PRINT-TACTICS- 

2978 PRINT-<1) RUN <2) AnACK (3) CONTINUE <4> CIRCLE WAGONS" 

2988 IF RND<8». 2 THEN 3000 

2990 S5»l-S5 

3000 INPUT Tl 

3810 IF Tia THEN 2970 

3020 IF Tl>4 THEN 2970 

3030 T1=INT<T1) 

3040 IF S5«l THEN 3330 

3050 IF T1>1 THEN 3110 

3060 N-TH20 

3070 Ml-Ml-15 

3088 B=B-150 

3898 A-A-48 

3100 GOTO 3470 

3U0 IF Tl>2 THEN 3240 

3120 GOSUB 6148 

3138 B«8-Bl*48-88 

3148 IF B1>1 THEN 3178 

3150 PRINT-NICE SHOOTING — VOU DROVE THEM OFF" 

3160 GOTO3470 

3170 IF Bl O 4 THEN 3220 

3188 PRINT-LOUSV SHOT — VOU GOT KNIFED" 

3198 K8»l 

3288 PRINT-VOU HAVE TO SEE X' DOC BLANCHARD" 

3218 GOTO 3478 

3228 PRINT-KINDA SLOW WITH VOUR COLT . 45" 

3238 GOTO 3478 

3248 IF Tl>3 THEN 3298 

3258 IF RND<8». 8 THEN 3458 

3268 B=B-158 

3278 Ml-Ml-15 

3288 GOTO 3478 

3298 GOSUB 6148 

3300 8-8-61*30-88 

3318 H«M-25 

3328 GOTO 3148 

3338 IF T1>1 THEN 3378 

3348 H-M+15 

3358 A=A-18 

3368 GOTO 3478 

3378 IF Tl>2 THEN 3418 

3388 M=M-5 

3398 B=B-188 

3400 GOTO 3478 TR5-88 USEPS QPOIP - NEWSLETTER - 
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3419 IF Tl>3 THEN 3438 

3429 GOTO 3478 

3438 M-M-28 

3448 GOTO 3478 

3458 PR I NT "THEY DID NOT ATTACK" 

3468 GOTO 3558 

3478 IF S5=8 THEN 3588 

3488 PRINT-RIDERS HERE FRIENDLY, BUT CHECK FOR POSSIBLE LOSSES" 

3498 GOTO 3558 

3588 PRINT'RIDERS MERE HOSTILE— CHECK FOR LOSSES" 

3518 IF B >= 8 THEN 3558 

3528 PRINT"VOU RAN OUT OF BULLETS AND GOT MASSACRED BV THE RIDERS" 

3538 GOTO 5178 

3548 RE, ***SELECTION OF EVENTS*** 

3558 Di=8 

3568 RESTORE 

3578 Ri=188*RND<0> 

3588 D1=DH1 

3598 IF Dl=16 THEN 4678 

3688 READ D 

3618 IF R1>D THEN 3588 

3628 DATA 6, 11, 13, 15. 17, 22, 32, 35, 37, 42, 44, 34 64, 69, 95 

3638 IF Dl>18 THEN 3658 

3648 ON Dl GOTO 3668, 3788, 3748, 3798, 3828, 3858, 3888, 3968, 4138, 4198 

3658 ON Dl-18 GOTO 4228, 4298, 4348, 4568, 4618, 4678 

3668 PRINT'HAGON BREAKS DOWN—LOSE TIME AND SUPPLIES FIXING IT" 

3678 M=fl-15-5*RND<8> 

3688 m=m-8 

3698 GOTO 4718 

3788 PRINT"OX INJURES LEG SLOWS VOU DOWN REST OF TRIP" 

3718 H=H-25 

3728 A»A-28 

3738 GOTO 4718 

3748 PRINT"BAD LUCK — YOUR DAUGHTER BROKE HER ARM" 

3758 PRINT"YOU HAD TO STOP AND USE SUPPLIES TO MAKE A SLING" 

3768 M*M-5-4*RND<8) 

3778 Ml*Mi-2-3*RN0<8> 

3788 GOTO 4718 

3798 PRINT"OX WANDERS OFF] SPEND TIME LOOKING FOP IT" 

3888 H«fl-17 
3818 GOTO 4718 

3828 PfUNT"VOUR SON GETS LOST SPEND HALF THE DAY LOOKING FOR HIM' 

3838 M=N-18 

3848 GOTO 4718 

3858 PRINT "UNSAFE WATER— LOSE TIME LOOKING FOR CLEAN SPRING" 

3868 H=M-18*RND<8)-2 

3878 GOTO 4718 

3888 IF M>958 THEN 4498 

3898 PRINT"HEAVY RAINS TIME AND SUPPLIES LOST" 

3918 F=F-18 

3928 B*B-508 

3938 M1=M1-15 

3948 M=M-18*RND(8)-5 

3958 GOTO 4718 

3968 PRINT "BAND ITS ATTACK" 

3978 GOSUB 6148 

3988 B=B-28*81 

3998 IF B >- 8 THEN 4828 

4888 PRINT"YOU RAN OUT OF BULLETS — THEY GET LOTS Of CASH" 

4818 T»T/3 

4828 GOTO 4848 

4038 IF Bl <= 1 THEN 4188 

4848 PRINT'YOU GOT SHOT IN THE LEG AND THEY TOOK ONE OF VOU OXEN" 



4058 KS=1 

•4*68 PR I NT "BETTER HAVE A MX LOOK AT YOUR WOUND" 

4870 Ml=Ml-5 

4088 A=A-20 

4898 GOTO 4718 

4188 PRINT-QUICKEST DRAW OUTSIDE OF DODGE CITY"!" 

4118 PR I NT "VOU GOT 'EM!" 

4128 GOTO 4718 

4128 PRINT"THERE WAS A FIRE IN YOU WAGON— FOOD AND SUPPLIES DAMAGE!" 

4148 F=F-48 

4158 B=B-408 

4168 Hl=Ml-RND(8)*8-3 

4178 M=M-15 

4188 GOTO 4718 

4198 PRINT'LOSE YOUR WAV IN HEAVY FOG TIME IS LOST" 

4288 M=M-ie-5*RND<8> 

4218 GOTO 4718 

4228 PRINT-VOU KILLED A POISONOUS SNAKE AFTER IT BIT VOU" 

4238 B=B-18 

4248 Ml=Ml-5 

4258 IF Ml >= 8 THEN 4288 

4268 PRINT-VOU DIE OF SNAKEBITE SINCE VOU HAVE NO MEDICINE" 

4278 GOTO 5178 

4288 GOTO 4718 

4298 PRINT M WAGON GETS SWAMPED FORDING RIVER— LOSE FOOD AND CLOTHES" 

4388 F=F-38 

4318 C=C-28 

4328 H=M-28-28*RND<8> 

4338 GOTO 4718 

4348 PRINT"MILD ANIMALS ATTACK!" 

4358 GOSUB 6148 

4368 IF B>39 THEN 4418 

4378 PRINT "VOU WERE TOO LOW ON BULLETS—" 

4388 PRINT"THE WOLVES OVERPOWERED VOU" 

4398 K8=i 

4488 GOTO 5128 

4418 IF Bl>2 THEN 4408 

4428 PRINT-NICE SHOOTIN' PARDNER — THEY DIDN'T GET MUCH" 

4438 GOTO 4458 

4448 PRINT "SLOW ON THE DRAW THEY GOT YOUR FOOD AND CLOTHES" 

4458 B=8-28*61 

4468 C=C-B1*4 

4478 F=F-B1*8 

4488 GOTO 4718 

4498 PRINT-COLD WEATHER — BRRRRRRR! — YOU "; 

4588 IF C>22+4*RND<8> THEN 4538 
4518 PRINT"DON'T ", 

4528 Cl»l 

4538 PR I NT "HAVE ENOUGH CLOTHING TO KEEP VOU WARM" 

4548 IF Cl=8 THEN 4719 

4559 GOTO 6388 

4569 PPINT"HAIL STOPM — SUPPLIES DAMAGED" 

4578 M=M-5-PND(8>*19 

4589 B=B-288 

4598 Ml=Ml-4-RND<8>+: 

4689 GOTO 4718 

4618 IF E=l THEN 6Z08 

4629 IF E=3 THEN 4656 

467-8 IF RND<8>: 25 THEN 6288 

4648 GOTO 4718 

4658 IF RKX8K. 5 THEN 6209 

4668 GOTO 4718 

•■a.' :?"• vcu*€ : NiiNBgp ' - ppoe 



4671 PRINT"HELPFUL INDIANS SHOW YOU WHERE TO FIND MORE FOOD" 

4688 F-F+14 

4699 GOTO 4718 

4780 REM ♦♦♦MOUNTAINS*** 

4718 IF H <■ 958 THEN 1238 

4728 IF RM><8». 5 THEN 4868 

4738 PRINT'RUGGED HOUNTIANS" 

4748 IF RM><8». 1 THEN 4788 

4758 PRINT-VOU GOT LOST— LOSE VALUABLE TIME TRYING TO FIND TRAIL! " 

4768 H-M-68 

4778 GOTO 4868 

4788 IF RM>(8». 11 THEN 4848 

4798 PRINT-MAGON DAMAGED! — LOSE TIME AND SUPPLIES" 

4888 Nl-Ml-5 

4818 8*8-288 

4828 H-H-20-RND<30> 

4838 GOTO 4868 

4848 PRINT'THE GOING GETS SLOW" 

4858 H»M-45-RND<50> 

4868 IF Fl=i THEN 4988 

4878 Fl-1 

4888 IF RND<8X. 8 THEN 4978 

4698 PRINT-YOU MADE IT SAFELY THROUGH SOUTH PASS— NO SNOW" 

4988 IF MC1700 THEN 4948 

4918 IF F2-1 THEN 4948 

4928 F2»l 

4938 IF RND<8)C 7 THEN 4978 

4948 IF H>958 THEN 1238 

4958 N9»l 

4968 GOTO 1238 

4978 PRINT-BLIZZARD IN MOUTAIN PASS— TIME AND SUPPLIES LOST" 

4988 Ll«l 

4998 F-F-25 

5808 H1"M1~18 

5818 8-6-388 

5820 M-M-30-RMX40) 

5838 IF Ca8+2*RND(0) THEN 6388 

5848 GOTO 4948 

5858 REM ***DYING*** 

5868 PRINT'YOU RAN OUT OF FOOD AND STARVED TO DEATH" 

5878 GOTO 5178 

5088 T-8 

5098 PRINT-VOU CAN'T AFFORD A DOCTOR" 

5188 GOTO 5128 

5118 PRiNT-VOU RAN OUT OF MEDICAL SUPPLIES" 

5128 PRINT-VOU DIED OF "; 

5138 IF K8=l THEN 5168 

5148 PRINT-PNEUMONIA" 

5158 GOTO 5178 

5168 PRINT" INJURIES" 

5178 PRINT 

5188 FOR O-1TO2880: NEXT: PRINT-DUE TO YOUR UNFORTUNATE SITUATION, THERE ARE A FEW 

5198 PRINT-FORMALITIES HE MUST GO THROUGH" 

5288 PRINT 

5218 PRINT-MOULD YOU LIKE A MINISTER?" 

5228 INPUT C$ 

5238 PRINT-WOULD YOU LIKE A FANCY FUNERAL?" 

5248 INPUT C* 

5258 PRINT-MOULD YOU LIKE US TO INFORM YOUR NEXT OF KIN?" 

5268 INPUT C* 

5278 IF M--VES- THEN 5318 

5288 PRINT-BUT YOUR AUNT SADLE IN ST. LOUIS IS REALLY MORRIED ABOUT YOU" 

5298 PRINT 

5388 GOTO 5338 



5318 PRINT-THAT HILL BE *4 50 FOR THE TELEGRAPH CHARGE. " 

5320 PRINT 

5338 PRINT-HE THANK YOU FOR THIS INFORMATION AND ME ARE SORRY YOU" 

5340 PRINT-DIDN'T MAKE IT TO THE GREAT TERRITORY OF OREGON" 

5350 PRINT"BETTER LUCK NEXT TIME" 

5368 PRINT 

5378 PRINT 

5388 PRINT TAB<38); "SINCERELY" 

5398 PRINT 

5488 PRINT TABC17); "THE OREGON CITY CHAMBER OF COMMERCE" 

5410 END 

5420 REM ***FINAL TURN*** 

5430 F9*<2040-M2)/<H-M2) 

5440 F*F*<1-F9>*<8*5*£> 

5450 PRINT :FOR W»l TO 15e8:NEXT 

5468 REM **BELLS IN LINES 5478, 5488** 

5478 PRINT-VOU FINALLY ARRIVED AT OREGON CITY" 

5488 PRINT'AFTER 2848 LONG MILES— HOORAY! ! ! ! •■ 

5498 PRINT-A REAL PIONEER!" 

5588 PRINT 

5518 F9»1NT<F9*14> 

5528 D3=03*14+F9 

5538 F9"F9*i 

5548 IF F9<8 THEN 5568 

5558 F9=F9-7 

5568 ON F9 GOTO 5578, 5598, 5618, 5638, 5658. 5678, 5698 

5578 PRINT-MONDAY "; 

5588 GOTO 5788 

5598 PRINT-TUESDAY "; 

5688 GOTO 5788 

5618 PRINT-HEDNESDAV "j 

5628 GOTO 5788 

5638 PRINT"THURSDAV "j 

5648 GOTO 5788 

5658 PRINT-FRIDAY "; 

5668 GOTO 5788 

5678 PRINTSATURDAY 2+ 

5688 GOTO 5788 

5698 PRINT-SUNDAY "l 

5788 IF D3> 124 THEN 5748 

5718 D3»D3-93 

5728 PRINT-JULY "; D3i " 1847" 

5730 GOTO 5788 

5748 IF DM55 THEN 5788 

5750 D3>03-i24 

5768 PRINT-AUGUST "; D3" 1847* 

5778 GOTO 5928 

5788 IF D3M85 THEN 5828 

5798 D3-D3-155 

5888 PRINT"SEPTEMBER -;D3;" 1847" 

5818 GOTO 5928 

5828 IF D3>216 THEN 5868 

5838 D3-D3-185 

5848 PRINT-OCTOBER -;D3;" 1847" 

5858 GOTO 5928 

5868 IF D3>246 THEN 5988 

5878 D3-03-216 

5888 PRINT-NOVEMBER -;D3;" 1847- 

5898 GOTO 5928 

5988 D3=03-246 

5918 PRINT-DECEMBER "; D3i ■ 1847" 

5928 PRINT 
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5938 PRINT-FOOD BULLETS CLOTHING MISC. SUPP CASH" 

5949 IF B>0 THEN 5960 

5956 B-8 

5968 IF C>8 THEN 5988 

5978 C«8 

5988 IF Hl>8 THEN 6880 

5998 M1=0 

6888 IF T>0 THEN 6820 

6818 T=0 

6828 IF F>0 THEN 6848 

6838 F=8 

6848 PRINT INT<F>; " MNT(B); " MNT<C); " MNTCNi); " MHT<T>; 

6858 PRINT 

6868 PRINT TfiB<ll>; "PRESIDENT JAMES K. POLK SENDS VOU HIS" 

6878 PRINT TflB<17)> "HEARTIEST CONGRATULATIONS" 

6868 PRINT 

6996 PRINT TAB<11); "AND HISHES VOU A PROSPEROUS LIFE AHEAD" 

6168 PRINT 

6118 PRINT TAB<22); "AT VOUR MEN HOME" 

6126 STOP 

6138 REM ***SHOOTING SUB-ROUTINE*** 

6131 REM FOR TRS-86 LEVEL 2 

6146 REM 

6156 S$<i>»"BRANG" 

6166 S$<2)*"BLAH" 

6176 StO-'POU" 

6186 S»(4)*"HHAH" 

6198 S6-RMX4) 

6288 PRINT'TVPE ", S*<S6> 

6285 CP=1:N=8 

6216 R**INKEV$:N=N+1:IF Rf="" THEN 6218 

6215 IF N>66 THEN 6248 

6226 IF R*OHID*<S$<S6)»CP,l> THEN 6248 

6225 IF CP»LEN<S*<S6>> THEN B1»INT<NA6*<D9*3>>> PRINTRS.RETURN 

6238 CP>«CPH:PRINTR*; GOTO 6218 

6246 Bl«9: PRINT: RETURN 

6296 REM *** ILLNESS SUB-ROUTINE*** 

6366 IF 186*RND(8)<18+35*(E-1) THEN 6378 

6318 IF RND(168) < 28 THEN6418 

6328 PRINT"SERIOUS ILLNESS ■ 

6338 PRINT-VOU MUST STOP FOR MEDICAL ATTENTION" 

6346 HlfHl-ie 

6356 S4=i 

6366 GOTO 6446 

6378 PRINT'MILD ILLNESS — MEDICINE USED" 

6386 N-H-5 

6396 Ml-Ml-2 

6468 GOTO 6448 

6418 PRINT"BAD ILLNESS — MEDICINE USED" 

6428 M-M-5 

6438 Ml-Ml-5 

6448 IF MK8 THEN 5118 

6456 IF Ll«l THEN 4948 

6466 GOTO 4719 

6479 REM ***IDENDIF I CATION OF VARIABLES IN THE PROGRAM*** 

6489 REM A 

6499 REM REM NOT DONE THRU 6798 

6886 END 

9889 PRINT :PRINT"PRESS ENTER TO CONTINUE. "; INPUT FF CLS RETURN 

9268 REM 

9218 PRINT-FOOD BULLETS CLOTHING MISC. SUPP. CASH" 

9235 IF M>2648 THEN 5428 

9248PRINTF;" ">8;" ";U" ";M1;" ";T:RETURN 



TARGET 
R 



Bl 



C* 

CI 

CP 

D 

Dl 

D2 



D9 
E 

EVENTS 

F 



Ml 



REFERENCED IN LINE # 
860 870 900 1130 2860 2090 2090 3350 2258 2726 3720 
4080 4080 

990 1080 1120 1170 1170 1770 1730 I860 I860 2220 
2440 2440 2540 2620 2620 2690 2690 3080 2080 2120 
2120 2260 2260 2208 2380 3390 3390 3510 3920 3928 
3988 3980 3990 4150 4150 4230 4230 4360 4450 4450 
4588 4580 4810 4818 5810 5818 5948 5950 6040 9240 
2590 2600 2610 2620 2120 2140 2170 3380 3980 4020 
4410 4450 4460 4470 6225 6240 

1040 1858 1138 1798 1880 1870 1870 2470 2470 4210 
4310 4468 4468 4580 5830 5968 5978 6848 9248 
168 288 288 5228 5240 5260 5278 
2878 4528 4548 
6285 6228 6225 6230 6230 
3608 3618 5748 

3558 2580 3580 3599 2630 3640 3650 
1250 1250 1288 1299 1300 5520 5520 5708 5718 5718 
5728 5750 5750 5768 5788 5798 5798 5880 5820 5830 
5830 5848 5860 5870 5870 5880 5900 5900 5918 
768 778 778 6225 

2778 2780 2790 2880 2880 2810 2830 4610 4620 5440 
6300 
3540 

940 950 1130 1750 1760 1838 1858 1858 2410 2418 
2618 2618 2680 2688 2720 2818 2818 2820 2830 2838 
3910 3910 4140 4140 4300 4300 4470 4470 4680 4680 
4990 4990 5440 5440 6028 6030 6840 9240 



Fl 


4860 4870 


F2 


4910 4920 


F9 


5430 5440 5510 5510 5520 5530 




5560 


FF 


9000 


K8 


1930 1980 3190 4050 4390 5130 


LI 


2870 4980 6450 


M 


1230 1900 1900 1910 1910 2000 



2860 2860 3060 3060 3310 3310 3340 3340 3380 3380 
3438 3430 3670 3670 3710 3710 3760 3760 3800 3800 
3830 3830 3860 3860 2880 3940 3940 4170 4170 4200 
4200 4320 4320 4570 4570 4710 4760 4760 4320 4820 
4858 4850 4900 4940 5020 5020 5430 6330 6380 6420 
6420 9235 

1090 1100 1130 1810 1820 1880 1888 2580 2588 3878 
3878 3270 3270 3630 3688 3778 3770 3930 3930 4078 
4070 4160 4160 4240 4240 4250 4590 4590 4300 4800 
5800 5000 5980 5990 6040 6340 6340 6390 6290 6430 
6430 6440 9240 



2470 2508 



M2 


1910 


5430 5420 




rt? 


1990 


2038 4950 




N 


6205 


6210 6210 6215 6225 




OF 


3540 






P 


2330 


2240 2250 2230 2290 2410 


2440 





5130 






P* 


6218 


6210 6220 6225 6220 




PI 


3578 


2618 




re 


3540 






5* 


6158 


6160 6170 6180 6200 6220 


6225 


S4 


1920 


1980 6250 




|jj 


2910 


2940 2990 2990 3040 2470 




S6 


6190 


6200 6220 6225 




SELECTI 


3540 






SP$ 


100 350 930 980 1830 1080 





TPS-9? 
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T 

Ti 
X 
XI 

w 



1130 1140 1180 1890 1890 1950 1950 I960 2s52 2350 

2360 2380 2380 4010 4010 5080 6000 6010 6040 9240 

3000 3010 3020 3030 3030 3050 3110 3240 3330 3370 

3410 

2100 2110 2120 2130 2130 2150 2180 2190 2200 2210 

2210 2220 2270 

810 2860 2070 2070 2260 2260 

5450 



100 
110 
120 
130 
148 
150 
160 
178 
180 
198 
288 
218 
228 
238 
248 
258 
268 
278 
288 
298 
388 
318 
328 
338 
348 
358 
368 
378 
388 



REM GRAPHIC DRAG RACE FINISHED 6/14/79 

REM AUTHOR WALTER GOULD <AGE 13) 

REM RALEIGH, NORTH CAROLINA 

REM CLEARED MEM 14515 <ON A 16K SVSTEM) 

RANDOM : CLEAR78 : DEFSTRA 

F0RX1«8T038:READW1:A=A+CHR*<W1):NEXTX1:REM * A IS THE CAR * 

DATA176, 156/ 188, 176, 176, 136, 188, 176, 26, 24, 24, 24, 24, 24, 24, 24 

DATA24, 191, 149, 191, 191, 191, 32, 191, 191, 26, 24, 24, 24, 24, 24, 24 

DATA24, 131, 131, 32, 32, 138, 131 

CLS:PRINT927, "DRAG RACE"; :FORX«0TO127:SET<X, 10) :SET<X, 36) 

NEXTX : FORV*10TO36 : SET < 22, V ) : SET < 126, V ) : SET < 127, V ) : NEXTV 

FORX-0TO127: IFINT<X/16)*16-X=0THENGOTO220 ELSESETCX, 23) 

NEXTX : Cl«259 : C2-579 : PRINT9C1, A; : PRINT9C2, A; : G0T0350 

REM * DRAWS THE TRACK tk CARS * 

Z«RND<2) : IFZ-2GOTO290 

REM * MAKES A DECISION ON WHICH CAR MOVES * 

Cl-Cl+l:PRINT8Cl+63, CHR*<32); :PRINT8C1-1, CHRSC32); 

PRINT8C1+128, CHR*<32)j 

PRINT8C1,A; : I FC1-311THEN330 ELSEGOTO320 : REM * MOVES CAR #1 * 

C2-C2+l:PRINT9C2+63, CHR«<32); PRINT8C2-1, CHR*<32>; 

PRINT9C2+128, CHR*<32>; 

PRINT8C2, A; : IFC2-631THEN340 :REM * MOVES CAR #2 * 

G0T0248 



F0RT=8T01588 : NEXTT : RUN 
FORT=8TO1500 : NEXTT RUN 
NEXTT. SET <<P*S), 21) 



PRINT8832, "CAR #1 WON THE RACE" 

PRINT8832, "CAR #2 WON THE RACE" 

P«8 : FORS-8T03STEP-1 : F0RT-1T0488 

SET<<P*S), 25) :NEXTS 

PRINTW.28, "GO! !"; :G0T0248 

REM * "CHRISTMAS TREE" AT THE BEGINNING OF RACE * 

TARGET REFERENCED IN LINE * 

A 148 158 158 220 220 280 310 

CI 228 228 268 268 268 268 278 288 288 

C2 228 228 298 290 290 290 300 310 310 

P 350 358 368 

S 358 358 368 368 

T 338 338 340 340 350 350 

Wl 158 158 

X 198 198 198 288 210 210 210 210 228 

XI 158 158 

V 208 288 200 280 200 

Z 240 240 



GO! ! 



CAR #2 WON THE RACE 



'T EXCEED PASS THE BLOCK)" 
INPUTC* IFLEN<C*»50THEN210 



100 'PROGRRM. NORSE CODE 

AUTHOR : WALTER GOULD 'AGE 13) 
FINISHED 6/11.79 

WHERE FROM: RALEIGH, NORTH CAROLINA 

118 CLEAR1O00 DIMA*''33 ' B*<38) 

120 CLS PRINT027, "MORSE CODE" PRINT0128, "DO VOU WANT INTRUCTIONS". 

130 INPUT I N$ !FLEFT*<IN$, i)=' , V"GOSUB400 

140 DATA0- , 1, . , 2, . , 3, . . --. 4, . . . -. 5. . . . . , 6, - 

158 DATA7, — . . . , 3, . , 9, , A, . -. B, - . . , C, - -. , D, - . ■£,. 

160 DATAF, . . - . .. G, — . i H, . . ,1, . , J, . , K, - -. L, - . M, —. N, -. 

170 DATACi, , P, — . Q, — -, R, . - , S, . . . , T, -, U, . . -. V, . -, W, — 

138 DATAX, - . -, V, -. — , 2, --. . 

190 DATA". ". . - -. -, », ", --. . — , 7, 

280 F0RZ=0T033 RE ADA* < Z > ■ 6$ < Z ) NEXTZ 
210 CLS: PR I NT "WHAT IS YOUR MESSAGE (DON' 

220 PR I NTT ABC 50); CHR$C143) PRINTU64, 

230 F0RA=1T0LEN<T*) :Z$=LEFT$(C$, A) 

240 FORZ=0TO38 

250 IFA$(Z)=RIGHT$CZ*, 1>THEND*=D*+B*(Z) 

260 NEXTZ :NEXTA 

270 CLS: PR I NT "THE MESSAGE WAS":PRINTC* 

280 PRINT-THE MESSAGE IN MORSE CODE IS M :PRINTD$ 

290 INPUT "TO HEAR IT PRESS =>ENTERO " ; Q$ 

300 F0RA=1T0LEN(D$):R*=LEFT$(D$, A) 

310 IFRIGHT*(R$, 1)=CHRS(45)THENGOTO370 

326 GOTO340 

330 NEXTGOTO110 

340 FORW=0TO75 

350 NEXTW 

260 GOTO330 

370 FORW=0TO75 

380 : : REM//// 

390 NEXTW :GOTO330 

400 CLS :PRINTTAB(3) "THIS PROGRAM IS OF MORSE CODE YOU INPUT YOUR MESSAGE" 

410 PRINT"BY JUST TYPING IT IN REGULARLY THE COMPUTER WILL THEN CHANGE" 

420 PRINT-THE MESSAGE INTO 'DOTS'. >' AND 'DASHES(-)' THEN THE" 

430 PR I NT "COMPUTER WILL PRINT WHAT THE MESSAGE WAS AND WHAT IT" 

440 PRINT"WILL BE IN MORSE CODE. VOU WILL BE ASKED IF YOU WANT TO" 

450 PRINT-HEAR THE MESSAGE IN MORSE CODE TO LESTEN GAT AN 'A M. RADIO, " 

460 PRINT-TUPN THE RADIO TO WHERE THERE IS NO STATION OR A WEAD ONE " 

470 PRINT-THEN PRESS »>ENTERO TO HEAR THE MESSAGE IN MORSE CODE. " 

430 PRINT-THE COMPUTER WILL CHANGE ALL THE LETTERS, ALL THE DIGITS, " 

490 PR I NT "PERIODS, COMMAS, AND QUESTION MARKS. IF VOU USE PUNCTUATION THE" 

500 PRINT-MESSAGE SHOULD BE IN QUOTATION MARKS. " 

510 PRINT INPUT "TO CONTINUE PRESS =>ENTER<= ", 10: RETURN 



TARGET REFERENCED IN LINE » 

A 230 238 260 300 308 

A* 118 288 258 

B* 118 288 258 

C* 228 228 238 238 270 

D* 250 250 280 300 300 

IN* 130 130 

10 588 

6* 298 

R* 380 310 

W 340 350 370 390 

Z. 280 288 200 288 240 250 250 260 

Z* 230 250 
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188 REM * TRS-88 ANIMATION - BV RON MOEHLIS, MODIFIED BV 

WALTER GOULD FOR SIX <6> TURTLES • 

118 DIM X<86>, V<86) : RANDOM 

129 F0RI«1T014:READX(I>, V(I.) NEXT I 

129 CLS : F0RI-1T0126 : SET< I, 6) : NEXT I 

140 FORI»1TO120:SET(I,45):NEXTI 

150 F0RI-6T045:SET<121, I):NEXTI 

160 PRINT848, "TURTLE RACE"; 

170 F0RI-1T014 : SET(X< I ), V< I > > : NEXTI 

180 F0RJ-1T05:F0RI-1T014 

190 K-I+14*J:X<K>=X< I> : V<K)«V< I )+J*6 

200 SET<X(K>,V<IO>:NEXTI, J 

210 FORI-1TO1000 NEXTI 

220 R-RND<6>:R-R-1:T»14*R 

230 K-i+T:SET<X<K>, V<K>> :SET<X<K+3>, V<K+3>> 

240 F0RI«KT04+T:RESET<X<I>, V<I>>:NEXTI 

250 F0RI-KT04+T : X< I >-X< I >+i : SET<X< I >, V< I ) ) : NEXTI 

260 F0RI-5+TT06+T : X< I )=X< I )+l : SET<X< I >, V< I > ) : NEXTI 

270 RESET<X<9+T>, Y<9+T>> : RESET <X<12+T>, Y<12+T)> 

280 F0RI-9+TT014+T : X< I >-X< I >+l : SET<X< I >, V< I ) > : NEXTI 

290 IFX<14+T>-120THEN310 

300 GOTO220 

310 PRINT80, "WINNER WAS »"; R+i 

320 RESTORE : FOR I =1TO3000: NEXT I :GOTO120 

330 DATA1, 9, 1, 10, 1, 11, 1, 12, 2, 10, 2, 11, 3, 19 

340 DATA3, 11, 4, 9, 4, 10, 4, 11, 4, 12, 5, 10, 5, 11 

9999 0OT09999 



30888 'ONE OF THE MINOR ANNOYANCES IN TRSDOS 2 1 IS NOT BEING 

38818 'ABLE TO REM) THE DIRECTORY FROM BRSIC. THIS ROUTINE 

38828 'HILL READ THE DIRECTORY AND PRINT IT: 

38838 F0RI«<*HB888>T0<«HB81F>:READK:P0KEI,K: NEXT 'MACHINE LANGUAGE 

38848 'SUBROUTINE <AT B888) READS DIRECTORY INTO BUFFER (B109 TO B8FF) 

38858 DATA6. 0, 17, 8, 177. 285, 193, 74, 194, 154, 18, 46, 8, 197, 1, 8, i, 237 

38868 DATA176, 193, 4, 128, 254, 8, 32, 235, 33, 8, 8, 195, 154, 18 

38878 DEFUSR-4HB888:IFUSR(8)O8THENPRINT ,, DIRECT0RY READ ERROR" STOP 

38888 F0RI-<«HB188>T0UHB8E8>STEP 32 

38885 'USER-CREATED FILES HAVE 16 AS FIRST DIRECTORY BYTE 

38898 IFPEEK<I)016THEN3813e 

38895 'TO LIST S, LP FILES, CHANGE 38898 TO "IF PEEK<I>*8THEN38i30" 

3889B 'PRINT FILENAME: 

38188 F0RJ»5T012:P«PEEK<I*J):IFPO32THENPRINTCHR»<P); NEXTJ 

38185 'AND EXTENSION, IF ANY: 

38118 IFPEEK<I+13)032THENPRINTV"; :F0RJ»13T015:PRINTCHR«(PEEK<I-»J)); NEXTJ 

38128 PRINT, 

38138 NEXTI: END 

38148 'THIS ROUTINE CAN BE SAVED IN ASCII FORMAT AND MERGED 

38158 'HITH OTHER PROGRAMS RESERVE MEMORY SIZE 45856 <»«HB808) 

38168 'TO LEAVE ROOM FOR THE INPUT BUFFER. 

38165 'THE MACHINE LANGUAGE SUBROUTINE IS RELOCATABLE: 

38178 'IN 48K, VOU CAN MOVE THE PROGRAM UP TO F888 AND THE 

38188 'BUFFER TO F188 BV EDITING LINES 38838, 38878, AND 38868, 

38198 'AND BV CHANGING THE 3TH DATA ITEM FROM 177 TO 241 

38288 ' PHELPS GATES 

38218 ' 6 CRESTUOOD TR. PK. - RT. 4 

38228 ' CHAPEL HILL, NC 27514 

38238 ' 919-967-5193 



Di ir Mr. M«yd, 

I've \jtter. reading t*r: n»H3 letter sinoe Jan. 7? u I think you're 
iiinf: a superb -of. "o-jp ur. the • -tI JcrkJIl avloned ir i lev*-] n 
''ViTtta, "n i.hinh ar* 1 records-?, U ,.? r>««rams 1 think vu1d ir.t n resl the 
readers. J .ll of th prog^ain h>v> been renumbered u-ing ''. ^hej'-s ".ate's 
renumbering orogram {'lol.? Nun. Pg.2U) which is an e»r*ellent prorr.-v. 
!, ere art* d- script ions of the programs & instructions '"or running the»i 

1 .Calendar: 

Printa a calendar for any given year on the line-printer. T^ose of 
you who don't have a line-printer (like myself), just change every "LFRINT" 
to "PRINT" and every "TAB(UO , / " to "TAB(30)". 

2.Dat^: 

Takes any two dates and calculates both the number of days between 
then and the day of week on which they come out. 

3. Hangman: 

This game can be played on two levels (sa-.e vocat-ulary just a different 
number of KUesaea). *t present It has a 21 word vocabulary, but you tan add 
yr-ur own vsorrf* on "DVTA" line- at the end of ttv program & by changing the 
random nu"ib<;r range in line 1060 to the new number of words. 

lj.?ext alitor : 

This program enables wiMi'g • >nd editing text ^n 'he screen i having 
it printed ur. on the line-print-r. At any ooint, text, will be entered *t 
the curror (CHH')(191)). Tr. nr»v» the cursor just -rvs ona of the four 
arro-.re in thfl direction you wish to nc-ve. To skir tc th V iilin' of the 
next line, tress th« "^NTKR" ' ey. T"> mry the sor- en as i;, press the 
"CI.iAk - * key. 



Sincerely your'-, 



MAY 1979 
SUN MON TUE WED THU FRI SAT 



3 4 
18 11 



5 
12 
19 



Zvi Dcrshovi It. 

18 Harav "erlir, St, 

Jerusalem, I-rrael 



13 14 15 16 17 18 

28 21 22 23 24 25 26 

27 28 29 38 31 

JUNE 1979 

SUN MON TUE WED THU FRI SAT 



18 11 12 13 14 15 16 
17 18 19 28 21 22 23 

24 25 26 27 28 29 38 



DECEMBER 1979 

SUN MON TUE WED THU FRI SAT 

1 

2 3 4 5 6 7 8 

9 18 11 12 13 14 15 

16 17 18 19 28 21 22 

23 24 25 26 27 28 29 

38 31 
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1 ' CflLETOER PROGRAM : WRITTEN BV ZVI DERSHOHITZ ' 

2 ' 

3 ' 

laee clear ieee 

1818 DIM UK12>,0»<7>,W<12) 

1028 INPUT "WHRT YEW- VI 

1838 FOR T-l TO 12 

li«0 N-T : D-l : Y-Yi 

1158 OOSUB 1438 

1*68 IF M THEN Sl=© 

1878 IF T-7 TICN S2-0 

1868 UKTX 

1898NEXT T 

1100 H-l : 0-1 : Y-Yl+1 : GOSUB 1438 

1118 FOR T-l TO 11 

1128 UKTMJKMHJKT) 

1138 KXTT 

U48 UK12M-UK12) 

U38 FOR M TO 12 : READ Ht<T) : Hf<T)*«<T)*STR*<Yi> : NEXT T 

1168 FOR M TO 7 READ D*<T> : NEXT T 

1178 FOR T-l TO 6 

1179 LPRIMT CHWC138) 

1188 A»<26-U3KW(T)))/2 : B»<26-LEN(W<T+€)>)/2 

1198 LPRINT STRIM0l<fl,32)iH»<T);STRIM0l(fl32);TflB<48)iSTRIM(»(a32)in$(T^),STRlNG$(B,32) 

1288 LPRINT STRINGK27, 43); THB<48>» STRING*<27, 45) 

1218F0RTT-iT07:LPRINTD$<TT);" "j :NEXTTT:LPRIHTTBB<48); :F0RTT»iTO7:LPRINTD*<TT);" % NEXTTT: LPRINT 

1228 LPRINT STRIN8K27>4S)jTRB<48);STRINGf(27>«5) 

1238 LPRINT STRING* 51*4. 32); 

1248 CttlH : Sl-Si+1 

1258 IF C1XN<T) TICN W«9999 : Sl-Sl-1 : QOTO 1298 

1268 IF Cl<18 THEN LPRINT * •; 

1278 LPRINT STRKCDi ■ "i 

1288 IF NOT Sl/7-INT<Sl/7) THEN 1248 

1298 LPRINT TPB<48); 

1388 IF NOT C9-9999 THEN GOSUB 1528 

1318 C2-C2+1 : S2-S2+1 

1328 IF C2XJKTO) THEN N2-9999 : S2-S2-1 : GOTO 1378 

1338 IF C2Q8 THEN LPRINT ' "j 

1348 LPRINT STR$<C2); " '; 

1358 IF NOT S2/7-INT<S2/7) THEN 1318 

1368 LPRINT, 

1378 IF OH AND H2>«0 THEN 1248 

1388 IF (HI AND N2)-9999 THEN 1418 

1398 IF KL-9999 THEN 1298 

1488 GOTO 1248 

1418 LPRINT : LPRINT : Hl»8 : H2-8 : d"G : C2-8 : CM : Sl«Sl-INT(Sl/7>*7 : S2-S2-INT(S2/7)»7 : NEXT 

1428 END 

1438 ' DATE SUBROUTINE 

1448 IF H-l OR H-2 THEN V-V-l : H=mi3 : GOTO 1468 

1458 IWH1 

1468 C-INK365. 2*>Y)+INT(38. 6881»H>-H> 

1478 OINT<C*. 5) 

1488 D-7*«C*5)/7-INT«C*5>/7)) 

1498 D-INT<D*. 5> 

1588 RETURN 

1528 LPRINT TAB<48); STRING*<S2*4. 32); : C9«9999 : RETURN 

1538 DATA JANUW FEBRUARY, MARCH, APRIL MflY, JUNE, JLLV, RUGl^T, SEPTEWER, OCTOGER, MOVUCER, DECEfttR 

1548 DATA SUN,NON,TUE,HED,THU,FRI,SAT 



A 1180 1190/2 

B 1180 1190/2 

C 1080 1140 1460 1470/2 1480/2 

CI 1240/2 1250 1260 1270 1410 

C2 1310/2 1320 1338 1340 1410 

C9 1300 1410 1520 

D 1O10C* 1040 1060 1078 1100 1160-C* 1210<*2 1460 1480 

1490/2 

LM 1010 < 1880 < 1120 < 3 1140 < 2 1250 < 1320 < 

M 1010<$ 1840 1100 1150<*3 1188<$2 1190<*2 1440/4 1450/2 

1460 

Ml 1250 1370 1388 1390 1410 

M2 1320 1370 1380 1410 

51 I960 1230 1240/2 1250/2 1280/2 1410/3 

52 1070 1310/2 1320/2 1350/2 1410/3 1520 

T 1030 1040 1060 1070 1080 1990 1110 1120/3 1130 1150/5 

1160/3 1170 1180/2 1190/2 1250 1320 1410 

TT 1210/6 

V 1040 1100 1440/2 1460 

VI 1020 1940 1100 1150 



1 '-• 

2 ' 

3 ' 

1000 
1010 
1020 
1939 
1040 

1050 

1060 
1070 
1080 
1890 
1100 

1110 

1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 



DRTE PROGRAM WRITTEN BV ZVI DERSHOWITZ 



FOR T-l TO 7 : READ D*<T> : NEXT T 

FOR X=l TO 2 

INPUT "MONTH, DAV, VEAR"; M<X>, D<X>, VCX) 

FOR F=l TO 2 : D1(X)=D<X) : MKX)=M<X> : VKX)«V(X) : NEXT 

IFM<X>=1ORM<X)»2THENV<X>»V<X)-1:M<X>=M<X)+13:GOTO1060 

M<X)=M<X>+1 

V<X)-INT<365. 25*V<X>>+INT<30. 6001*M<X))+D<X) 

NEXT X 

S=ABS<V<1)-V<2>> 

FOR X«l TO 2 

C<X)=7*<<V<X>+5>/7-INT<<V<X>+5V7>>+l 

NEXT X 

C<1)»INT<C<1)+. 2) 

C<2) = INT<C<2)+. 2) 

F*=" ##/##/ ««««" 

PRINT 

FOR T»l TO 2 

PRINT USING F*;MKT>;DKT>; VICT); 

PRINT , " COMES OUT ON A ";D*<C<T>) 

NEXT 

PRINT " AND THERE ARE"; S; "DAVS BETWEEN THEM. " 

DATASUNDAV, MONDAV, TUESDAV, WEDNESDAY THURSDAV, FRIDAV, SATURDAV 

PRINT : GOTO 1010 



C 1100< 1120<2 1130<2 1180C 

D 1000<* 1020< 1930< 1068< 1180C* 

Dl 1030 < 1170 < 

F 1030 1140/* 1170/* 

M 1020< 1030< 1040<4 1050<2 1060< 

Ml 1030< 1170< 

S 1080 120O 

T 1000/3 1160 1170/3 1180 

V 106O< 1080''2 1190(2 

X 1010 1020/3 1030/6 1040/6 1050/2 1060/4 1070 1090 
1100/3 1110 

V 1020< 1030< 1040<2 1060< 
VI 1030 < 1170 < 
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